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SUBROUTINE TSTAPE (LUN) 
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Functional description: 
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TS11 tape handler device error/timeout display module 
Modified by: 


vO3=005 SARO235 Sharon A. aera nolds, 28-Mar-1984 
Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 


v03-004 SARO099 Sharon A. Reynolds, 20-Jun-1983 
Changed the torctage control in the ‘format’ statements 
for use with ER 


v03-003 SAROOAS Sharon A. Reynolds, 99-Jun-1983 
Remove brief/cryptic support. | 


v03-002 BP0007 Brian Porter, 20-AUG-1982 
Minor edit. 


v03-001 BP0006 Brian Porter 05-MAR-1982 
Corrected tssr and tsba in 'b’ and 'c' formats. 
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DATA EX_ADDR ttt 4.18.4 
DATA EXTADDR(9) V170'/ 
CHARACTER®7 V1IMODE 

DATA V1IMODE /*MODE = '/ 


CALL FRCTOF (LUN) 
call dheadi (lun,'UBA TS11") 
CALL LINCHK (LUN,2) 


WRITE(LUN,10) TSBA 
FORMAT(/" *,T8,*TSBA',124,78.4) 


CALL LINCHK (LUN,1) 


WRITE (LUN, 15) TSSR 
FORMAT(* *,T8,"TSSR*,124,78.4) 


IF (JIAND(TSSR,"800E'X) .£Q. "800E'X) THEN 
FIELD = LIBSEXT2V(4,2,TSSR) 
CALL LINCHK (LUN,2) 
WRITE(LUN, 20) FATAL_ERROR(FIELD) 

FORMAT(' °,T40,A<COMPRESSC (FATAL_ERROR(FIELD))>,/, 
. 160, »"FATAL CONTROLLER ERROR’) 
FIELD = LIBSEXTZV(1,3,TSSR) 
CALL LINCHK (LUN,1) 
WRITE (LUN, 25) TERMINATION(FIELD) 

MAT(* §,740,A<COMPRESSC (TERMINATION(FIELD))>) 

ENDIF 
CALL OUTPUT (LUN, TSSR,V1ITSSR,6,7,7,'0") 
DO 28,1 = 8,9 
IF (JIAND(TSSR,2**1) .NE. 0) THEN 
CALL LINCHK (LUN,1) 
WRITE (LUN, 27) EX_ADDR(1) 
FORRATS 140, EXTENDED BUS ADDRESS BIT ',A2,'.") 
CONTINUE 
CALL OUTPUT (LUN, TSSR,V2TSSR,10,10,15,'0") 
CALL LINCHK (LUN,3) 
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WRITE (LUN, 30) 
FORMAT(/*’* "COMMAND BUFFER',/) 


CALL LINCHK (LUN,1) 


WRITE(LUN,35) CMD_BUF (0) 
35 FORMAT. "78, CMD HDR',124,78.4) 


TS_FUNCTION = LIBSEXTZV(0,5,CMD_BUF (0)) 
CALL LINCHK (LUN, 1) 
WRITE (LUN, 40) TS COMMAND (MIN(11,TS_FUNCTION) ) 


30 


uw 
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40 FORMAT ( 740, FUNCTION = °, 
1 A<COMPRESSC (TS_COMMAND(MIN(11,TS_FUNCTION) ))>) 


FIELD = LIBSEXTZV(5,2,CMD_BUF(0)) 
CALL LINCHK (LUN,1) 
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WRITE (LUN, 45) VICMD_HDR(MIN(1 FIELD) ) 
45 FORMAT(* ',140,A<COMPRESSC (VICMD_HDR(MIN(1,FIELD)))>) 


CALL OUTPUT (LUN, CMD_BUF(O),V2CMD_HDR,7,7.,7,'0") 
IF (TS_FUNCTION .€Q. INITIALIZE 
‘ TS_FUNCTION .EQ. CONTROL 
S FUNCTION .£Q. FORMAT 
S FUNCTION .£Q. POSITION 
| 


we 
“ 


F 
FUNCTION .E€Q. WRITE_SUB 
FUNCTION .EQ. WRITE 
FUNCTION .EQ. WRITE_CHAR 
FUNCTION .€Q. READ 
S_FUNCTION .€Q. GET_STATUS) THEN 
CALL LINCHK (LUN,1) 
MODE = LIBSEXTZV(8,4,CMD_BUF (0)) 

F (TS_FUNCTION EQ, INITIALIZE 

TS FUNCTION .€Q. WRITE SUB 

i ig FUNCTION .€Q. WRITE_CHAR 
6 ig unction EQ, GET_STATUS) THEN 


WRITE(LUN,50) VIMODE ,NORMAL _MODE (MIN(1 MODE) ) 
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FORMAT(" ',140,A7,A<COMPRESSC (NORMAL MODE (MIN(1,MODE)))>) 
ELSE IF (TS_FUNCTION .EQ. CONTROL) THEN 


WRITE(LUN,55) VIMODE CONTROL MODE (MIN(4, MODE) 
FORMAT(’ §,740,A7,A<COMPRESSC (CONTROL_MODE (MIN(4,MODE)))>) 


ELSE IF (TS_FUNCTION .EQ. FORMAT) THEN 


WRITE(LUN,60) VIMODE ,FORMAT MODE (MIN(3 MODE) 
FORMAT(' §,140,A7,A<COMPRESSC (FORMAT _MODE (M mINC3, MODE)))>) 


ELSE IF (TS_FUNCTION .EQ. POSITION) THEN 


MATTE CLM, 65) VIMODE ,POSITION_MODE (MIN(5 ,MODE)) 
FORMAT(' §,140,A7,A<COMPRESSC~ (POSITION “MODE (MIN(S,MODE)))>) 


ELSE IF (TS_FUNCTION .EQ. WRITE) THEN 


es 70) VIMODE ,WRITE MODE (MIN(3,MODE)) 
FORMAT(* §,140,A7,A<COMPRESSC (WRITE _MODE (MIN(3, MODE)))>) 


ELSE IF (TS_FUNCTION .EQ. READ) THEN 


WRITE (LUN, 75) VIMODE ,READ MODE (MIN(4 ,MODE)) 
oe 140,A7,A<COMPRESSC (READ MODE (MIN(4, MODE)))>) 


ENDIF 
CALL OUTPUT (LUN,CMD_BUF (0), V3CMD_HDR,12,12,15,'0") 
IF (TS_FUNCTION .EQ. WRITE 

TS FUNCTION .EQ. WRITE_CHAR 
4 i$ FUNCTION .EQ, READ) THEN 
CALL LINCHK (LUN,1) 


WRITE (LUN, 80) CMD_BUF (1) 
FORMAT(* *,T8,*LO ADDR BITS',124,28.4) 


CALL LINCHK (LUN,1) 


ey ¢85) CMD_BUF (2) 
FORMAT(' *,78,°HI~ADDR BITS',124,78.4) 


CALL CALC_MAP (LUN,0,CMD_BUF (2) ,CMD_BUF(1)) 
CALL LINCHK (LUN,1) 


WRITE(LUN,90) CMD BUF (3) 
FORMAT(* °,18,*°SIZE',124,28.4) 


CALL LINCHK (LUN,1) 
WRITE(LUN,95) CMD_BUF (3) 
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0615 95 FORMAT(' *,140,"BUFFER SIZE = ',I<COMPRESS4 (CMD_BUF(3))>,'. BYTES") 
Ost? ELSE IF (TS_FUNCTION .EQ. POSITION) THEN 
13 CALL LINCHK (LUN,1) 
1 WRITE (LUN, 98) CMD BUF (1) 
g 98 FORMAT(' °,18,*SKIP/SPACE COUNT',124,78.4) 
06 4 CALL LINCHK (LUN,1) 
6 WRITE (LUN 100) CMD_BUF (1) 
100 FORMA 140, «SKIP/ SPACE * ,I<COMPRESS4 (CMD_BUF(1))> 
8 Tone TT APE *MARKS/REC") 
06 4 ENDIF 
0651 IF (EMBSW_HD_ENTRY .NE. TIMEOUT) THEN 
0638 CALL LINCHK (LUN,3) 
0635 IF (JIAND(TSSR,°400"X) .NE. 0) THEN 
peae WRITE(LUN, 105) 
0638 105 MAT(' *, "MESSAGE BUFFER NOT VALID',/) 
0639 ELSE 
0640 
0641 WRITE (LUN, 110) 
D642 110 FORMAT(/' ', "MESSAGE BUFFER',/) 
0644 CALL LINCHK (LUN,1) 
0646 WRITE (LUN, 115) MSG_HDR 
0647 115 FORMAT(' °,18,"MSG-HDR',124,78.4) 
0649 CALL LINCHK (LUN,1) 
0651 FIELD = LIBSEXTZV(0,5,MSG_HDR) 
bees WRITECLUN, 120) VIMSG_HDR(MAX(15 -MIN(20,FIELD))) 
0654 120 FORMA 40, "ME TY 
0655 1 RAAT ele (V1MSG "HDR(MAX(15, MIN(20,FIELD))))>) 
3 CALL LINCHK (LUN,1) 


FIELD = LIBSEXTZV(5,3,MSG_HDR) 
WRITECLUN, 197) yense HDR(MIN(1,FIELD)) 
125 FORMAT(* <COMPRESSC (V2MSG_ HDR(MIN(1,FIELD)))>, 
‘* Riess TORRAT 9 
IF (JIAND(MSG_HDR,'11°X) .EQ. '11°X) THEN 
FIELD = LIBSEXTZV(8,4,MSG_HDR) 
CALL LINCHK (LUN,1) 


IF (JIAND(MSG_HDR,*2"X) 
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MIN(2,FIELD)))>) 


TE 130) V3MSG. 4 DR(MIN(2,FIELD)) 
mateene. 703, RESSC NSA MSG_HDR( 


TE(LUN,135) V4MSG_HDR(MIN(G,FIE 
Te 720 


IELD)) 
-A<COMPRESSC (VGM SG_HDR ( 


R(MINC4,FIELD)))>) 


CALL OUTPUT (LUN,MSG_HDR,VSMSG_HDR,15,15,15,'0") 
CALL LINCHK (LUN,1) 


wai re ty, 1 MSG_LWD 
FORMAT(' *,T8,"MSGLEN',124,28.4) 


CALL LINCHK (LUN,1) 
FIELD = LIBSEXTZV(0,16,MSG_LWD) 

WRITE (LUN, 145) yINsG LWD(MAX(9,MINC11,FIELD))) 
FORMAT(’ ',140,' GE LENGTH 

1 ware ale iVIMSG. LWD (MAX (9, ninctt, FIELD))))>) 
CALL LINCHK (LUN,1) 


WRITE(LUN, 150) RBPC 
FORMAT(* °,T8, ‘REPCR", T24,28.4) 


FIELD = LIBSEXTZV(0,16,RBPCR) 
IF (TS_FUNCTION .EQ. READ) THEN 
CALL LINCHK (LUN,1) 


UES LM, 152) FIELD 
FORMAT(* §,140,"RES. BYTES OF XFER = ',I1<COMPRESS4 (FIELD)>,".") 


i IF (TS_FUNCTION .EQ. POSITION 

2 MODE .NE. REWIND) THEN 

CALL LINCHK (LUN,1) 

verre Cm, 198) FIELD v ee 
i. -140,"RES. REC/MARKS OF SKIP = ',1<COMPRESS4 (FIELD)>,'.") 
CALL LINCHK (LUN,1) 


eres 155) XSTATO 
FORMAT(" *,78,*XSTATO",124,28.4) 


CALL OUTPUT (LUN,XSTATO,V1IXSTATO,0,0,15,'°0") 
CALL LINCHK (LUN,1) 
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0729 0 
730 WRITE (LUN, 160) XSTAT1 0 
g 1 160 FORMAT(' §,T8,"XSTAT1",124,278.4) 8 
: CALL OUTPUT (LUN,XSTAT1,V1XSTAT1,0,0,7,'0") 8 

Of 5 CALL OUTPUT (LUN,XSTAT1,V2XSTAT1,9,9,13,'0") 8 

07 ; CALL OUTPUT (LUN,XSTAT1 ’%XSTAT1,15,15,15,°0°). 8 

O738 CALL LINCHK (LUN,1) 9 

bFc4 WRITECLUN, 165), XSTAT 0 

Ore 165 »1B, *XSTATO',124,78.4) 8 

ores DO 178,1 = 0,8 Os 

Ore IF (JIAND(XSTAT2,2**1) .NE. 0) THEN Oe 

ores CALL LINCHK (LUN,1) 03 

0730 IF (1 .NE. 8) THEN 0¢ 

075 WRITE (LUN, 170) 1 02 

075 170 MAT(' §,140,"DEAD TRACK CHANNEL ',11,'.") 02 

an a i 

0756 WRITECLUN, 175) 02 

0757 175 T(* §,140,"DEAD TRACK PARITY CHANNEL") 02 

0758 ENDIF 02 
138 ENDIF 0g 

0761 178 CONTINUE 03 

O73 CALL OUTPUT (LUN, XSTAT2,V1IXSTAT2,10,10,10,'0") Oe 

0765 CALL OUTPUT (LUN, XSTAT2,V2XSTAT2,12,12,15,°0") Oe 

Ore? CALL LINCHK (LUN,1) 0g 

0769 WRITECLUN, 18 ) XSTAT3 4 
AA 180 FORMAT(' » 'XSTAT3',124,78.4) 8 

Of CALL OUTPUT (LUN, XSTAT3,V1XSTAT3,0,0,7,'0") 

077% FIELD = LIBSEXTZV(8,8,XSTAT3) é 

O77 IF (FIELD .NE. 0) THEN 03 
778 CALL LINCHK (LUN,1) 0 
779 02 
780 WRITECLUN, 185) FEL 

1 185 FORAAT (* © 140, tmiCRO DIAGNOSTIC ERROR CODE ',03.3) 
: ENDIF o 
é 


TSTAPE 


AON 


190 


1 ces, tunet ion .eq. read 
: seria -eq. write 
: ra ne TOR eq. write_char 
: aap -eq. write _sub) 
! ne Sepanrantiald one. 96) 
! greae Pantry one. 98 


If THE TS11 FUNCTION IS A READ REVERSE THEN 
THE PREVIOUS MAP IS THE FINAL MAP PLUS ONE. 
if (uba_regs(0) .ne. 0) then 


call uba_datapath (lun,uba_regs(0) ,uba_regs(1)) 
endif 


call calc_map2 (0,cmd_buf(2),cmd_buf(1), field) 
call uba_mapping (Lun, field,uba_regs(2)) 
if (LibSextzv (16,16,emb$l_dv_iosb1) .gt. 512) then 
IF (TS_FUNCTION .EQ. READ 
1 .AND. 
; (MODE .EQ. 1 
OR. 
4 MODE .EQ. 2)) THEN 


gots uba_mapping (lun, (field+2) ,uba_regs(4)) 


call uba_mapping (lun, (field+1) ,uba_regs(3)) 
ENDIF 

endif 

ENDIF 

endif 

call Linchk (lun,1) 


write(lun,190) 
format(' *,:) 


if (emb$w_hd_entry .ne. 98) then 

cali ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 
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call orb$l_owner (Lun,emb$l_dv_ownuic) 


call ucb$l char (lun,emb$i_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 
call ucb$i_opcnt (lun,emb$l_dv_opcnt) 
call ucb$w_errcnt (lun,emb$w_dv_errcnt) 
if Cemb$w_hd_entry .ne. 98) then 
call Linchk (lun,1) 

write(lun,190) 

call tstape_qio (lun,emb$w_dv_ func) 
call irp$Sw bent (lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid \iun,emb$l_dv_raqpid) 
call irp$q_iosb (lun,emb$i_dv_iosb1) 
endif 


RETURN 
END 
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TSTAPE 


PROGRAM SECTIONS 
Name Bytes Attributes 


0$ 1836 
1 SPDATA 1 
ne SLOCAL 4 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT 

RD WRT LONG 
Total Space Allocated 10278 


ENTRY POINTS 
Address Type Name 
0-00000000 TSTAPE 


Address Type Name Address Type Name 


| 
| 
| 
| 
VARIABLES 


~0000001C L*l E€MBS$B_DV_CLASS -00000010 L*1 EMBSB_DV_ERTCNT 
~00000011 L*1 EMBSB~DVERTMAX -0000003E L*1 EMBSB~DVNAMLNG 
-0000003A L*l EMBSB-DV"SLAVE -0000001D L*1 EMBSB~DV“TYP 
00000036 I*4 EMBSLDV“CHAR -00000012 I*4 EMBSL~DV710SB1 
-00000016 I*4 EMBSL~DV~10SB2 =90000026 1-4 EMBSL-DV-MEDIA 
“ROQ0004E eh EMBSL- EG -0000002E I*4 EMBSL-DVOPCNT 
-00000032 I*4 EMBSLDV"OWNUIC -QO00001E 1*4 EMBSL-DV7ROPID 
-00000000 I*4 EMBSLHD"SID -0000003F CHAR EMBST~DV~ 
~00000024 I*2 EMBSW~DVBCNT ~000000¢2 sg EMBSU“DV "BOF E 
~0000002C I*2 EMBSW_DVTERRCNT -0000003C I*2 EMBSWIDV~FUNC 
-O0000001A I*2 EMBSWDV™STS 3-0000002A sg EMBSU“DV-UNIT 
~00000004 I*2 EMBSWIHD"ENTRY -0000000E I*2 EMBSWIHD-ERRSEQ 
2-000008C4 1*4 FIELD 2-00000BCC 14 I 
AP-000000048 L*1 LUN -00000BCO I*4 MODE 
“QOQQ00BE Ie4 RSG HOR -00000092 I*4 MSG _LwD 
1*4 RBPTR 00000052 14 
-00000056 I*4 TSSR -00000BC8 I*4 TS_FUNCTION 
-00000887 CHAR VIMOD -0000009A I*4 XSTATO 
-0000009E [*4 XSTATI -000000A2 14 XSTAT2 


I 
-000000A6 I*4 XSTAT3 


ARRAYS 


Name Bytes Dimensions 

CMD _BUF 3 (0:7) 

CONTROL _MODE (0:3) 

51 (0: 11) 

EMBSL_DV_REGSAV 420 (0:104) 

EMBSQ-HD_ TIME 8 (2) 
R EX_ADBR ~ 4 (8:9) 

FATAL ERROR 136 ¢ qi 

FORMAT_MODE 88 (0:5) 


10 
TSTAPE 1f-ep- 1386 00: 33: é] VAX=11 FORTRAN V3.4=56 age 15 

=$ep-1984 14: 1 DISKSVMSMASTER: CERF .SRCITSTAPE.FOR; ° 
I*4 MSG BUF 8 (0:6) 
CHAR NORMAL_MODE 6 (0:1) 
CHAR POSITION_MODE 144 (0:5) 
CHAR REA 83 (0:4) 
CHAR TERMINATION g (0:7) 
CHAR TS_COUMMAND 4 (0:11) 
I*4 UBA, "EGS (0:4) 
CHAR V1CAD_HDR (0:1) 
CHAR ViMSG_HDR (15:20) 
CHAR VIMSG_LWD 9 (9:11) 
CHAR VITSSR 4 (6:7) 
CHAR VIXSTATO of (0:15) 
CHAR VIXSTAT1 160 (0:7) 
CHAR VIXSTAT 19 (10:10) 
CHAR VIXSTAT 209 (O27) 
CHAR V2CMD_HDR 17 (7:7) 
CHAR V2MSG_HDR ‘5 (0:1) 
CHAR V2TSSR 1 (10:15) 
CHAR V2XSTAT1 95 (9:13) 
CHAR V2XSTAT2 116 (19:13) 
CHAR V3CMD_HDR 138 (12:15) 
CHAR V3MSG_HDR 93 (0:2) 
CHAR V3XSTATI 10 (15:15) 
CHAR V4MS HOR 165 (0:4) 
CHAR VSMSG_HDR 33 (15:15) 
CHAR WRITE_MODE 51 (0:2) 


Address’ Label Address Label Address Label Address Label Address Label Address’ Label 
1-00000047 10° 1-00000059 15° 1-0000006A 20' 1-00000091 25° 1-0000009D 27° shel 28 
1-000000C3 30° 1-000000D9 35° 1-O000000ED 40° e449 45' 44499 BF Q' 190000180 >. 
1-0000012E 60° e444 C 65° en 44444 bs 70° 1-000001 ¢ hk 1-00000166 80° 1-0000017F 85° 
1-00000198 90° 1-Q000001A9 95° 1-Q00001CE 98° 1-000001EB 190 e's ''4 44 16 192, e's ss CEE 110° 
1-00000248 115° ae 44434 SF 120° 1-00000 rg 125° e444 34 130° 1-Q00002A4 135° 1-000002B0 140° 
1-000002C4 145° 1-000002E1 150° 1-000002F3 152° 1-0000031 154° 1-00000343 155° 1-00000356 160° 
1-00000369 165° 1-0000037C 170° 1-0000039C 175° ee 178 1-0000038D 180° 1-00000300 185° 
1-000003F7 190° 

FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CALC_MAP CALC_MAP2 I*4 COMPRESS4 I*4 COMPRESSC DHEAD1 FRCTOF 
IRPS$C_PID IRP$G_10SB IRP$W_BCNT IRPS$W_BOFF I*4 LIBSEXTZV LINCHK 
ORBSL_OWNER OUTPU TSTAPE_QI0 UBA_DATAPATH UBA elt UCBSB_ERTCNT 
UCBSB_ERTMAX UCBSL_CHAR UCBS$L_OPCNT UCBSW_ERRCNT UCBSW_STS 
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0001 00 
b008 Subroutine TSTAPE_Q10 (Lun,emb$w_dv_ func) % 
Boog include ‘src$:qiocommon.for /nolist' 4 
0271 $0 
0278 byte lun | 00 
0 A) integer*2 emb$w_dv_ func 8 
6 8 integert4 qiocode(0:1,0:63) 4 
0 3 if (qiocode(0,0) .eq. 0) then 09 
8 3) qiocode(1,00) = Xloclio$_nop) 4 
Bee qiocode(1,01) = Xloc(io$_unload) 64 
3344 qiocode(1,02) = Xloc(io$_spacefile) 88 
0967 qiocode(1,03) = Xloc(io$_recal) 88 
Bsee qiocode(1,06) = Zloc(io$_erasetape) 85 
$94) qiocode(1,08) = %loc(io$_packack) 4 
0998 qiocode(1,09) = Xloc(io$_spacerecord) o3 
0995 qiocode(1,10) = Xloc(io$_writecheck) 88 
5a qiocode(1,11) = Zloc(io$_writepblk) 86 
5944 qiocode(1,12) = %loc(io$_readpblk) a8 
° 01 qiocode(1,22) = XLoc(io$_rereadn) 4 
Be qiocode(1,23) = Xloc(io$_rereadp) 88 
305 qiocode(1,24) = Xloc(io$_writeret) 00 
i qiocode(1,25) = Xioc(io$_readpreset) 09 
44 qiocode(1,26) = Zloc(io$_setchar) 
6 1} qiocode(1,27) = Zloc(io$_sensechar) 
18 qiocode(1,28) = Xloc(io$_writemark) 
1? qiocode(1,29) = Zloc(io$_wrttmkr) 
Hi qiocode(1,30) = Zloc(io$_clean) | 
| 19 qiocode(1,32) = Zloc(io$_writelblk) 
| 
| 
J 
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8 1 qiocode(1,33) = Zloc(io$_readiblk) 
8 § qiocode(1,34) = Zloc(io$_rewindoff) 
8 5 qiocode(1,35) = Xloc(io$_setmode) 
5 ? qiocode(1,36) = Zloc(io$_rewind) 
8 2 qiocode(1,37) = Xloc(io$_skipfile) 
8 1 qiocode(1,38) = Xloc(io$_skiprecord) 
8 § qiocode(1,39) = %loc(io$_sensemode) 
5 qiocode(1,40) = £loclio$_writeof) 
St t4 qiocode(1,48) = Zloc(io$_writevblk) 
8 i qiocode(1,49) = Zloc(io$_readvblk) 
Bee) qiocode(1,50) = Zloc(io$_access) 
038 qiocode(1,51) = Zloc(io$_create) 
Bete qiocode(1,52) = Xloc(io$_deaccess) 
0347 qiocode(1,53) = Xloc(io$_delete) 
0365 qiocode(1,54) = Zloc(io$_modify) 
Bee) qiocode(1,56) = Zloc(io$_acpcontrol) 
0358 qiocode(1,57) = Xloc(io$_mount) 
B22 do 10,i = 0,63 
0356 
0357 qiocode(0,i) = 33 
B28 
384 if (qiocode(1,i) .eq. 0) then 
0361 qiocode(1,i) = Zloc(qio_string) 
0 ¢ endif 
0 
10 continue 
5 endif 
8 call irp$w func (lun,emb$w_dv_ func, 
8 1 qiocode(0, LibSextzv(0,6,embSw_dv_func))) 
nH return 
2 end 
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PROGRAM SECTIONS 
Name 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address 7a 
ne=popooogs | 


Total Space Allocated 


Name 
TSTAPE_Q10 


EMBSW_DV_FUNC 
10$_ABORT 
tte st) pines 


EACCESS 
mate 


fa} 
> 


a) 
am) 
OSE 
—FORMAT 
“LOADMCODE 
=ROUNT 


STOP 
“REA na 
“READPRESET 


READ 
“READETHNOUT 
ELEASE 
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Attributes 


Ici aT 


E RD NOWRT LONG 
E RD NOWRT LONG 
E RD WRT LONG 
E RD WRT LONG 


Address Type Name 
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RACKD -0000032¢ CHAR 10$_WRITEVBLK 
THBUF 0000 CHAR 1O$S"WRTTMKR 
000004A1 CHAR QIO“STRING 


=" 
Se 


TSTAPE_Q10 


300000176 CHAR 108_ RITE 
00000648 CHAR 10S"WRITE 
AP~00000004@ L*1 LUN 


<-+ 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 1*4 QIOCODE $12 (0:1, 0:63) 
LABELS 
Address Label 
we 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:TSTAPE/OBJ=OBJ$:TSTAPE MSRC$:TSTAPE 


/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS, TRACEBACK) 

/STANDARD=(NOSYNTAX ,NOSOURCE_FORM) 

/SHOW=(NOPREPROCESSOR,NOINCLODE ,MAP) 

/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 14.63 seconds 
Elapsed Time: 9.25 seconds 
Page Faults: 89 
Dynamic Memory: 66 
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